home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1996 #15
/
Monster Media Number 15 (Monster Media)(July 1996).ISO
/
prog_bas
/
t2win_16.zip
/
FORM2.FRM
next >
Wrap
Text File
|
1996-05-16
|
7KB
|
236 lines
VERSION 4.00
Begin VB.Form frmLng
Appearance = 0 'Flat
BackColor = &H00C0C0C0&
Caption = "Read Control Language"
ClientHeight = 3225
ClientLeft = 1230
ClientTop = 3435
ClientWidth = 6240
BeginProperty Font
name = "MS Sans Serif"
charset = 1
weight = 700
size = 8.25
underline = 0 'False
italic = 0 'False
strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 3855
Left = 1200
LinkTopic = "Form2"
ScaleHeight = 3225
ScaleWidth = 6240
Top = 2835
Width = 6300
Begin VB.OptionButton Option1
Appearance = 0 'Flat
BackColor = &H00C0C0C0&
Caption = "&Dutch"
ForeColor = &H80000008&
Height = 210
Index = 2
Left = 3960
TabIndex = 3
Top = 540
Width = 1635
End
Begin VB.Frame Frame1
Appearance = 0 'Flat
BackColor = &H00C0C0C0&
Caption = "Frame1"
ForeColor = &H80000008&
Height = 735
Left = 180
TabIndex = 7
Top = 1890
Width = 5955
Begin VB.Label Label2
Appearance = 0 'Flat
BackColor = &H00C0C0C0&
Caption = "Label2"
ForeColor = &H80000008&
Height = 195
Left = 180
TabIndex = 8
Top = 360
Width = 5685
End
End
Begin VB.CheckBox Check1
Appearance = 0 'Flat
BackColor = &H00C0C0C0&
Caption = "Check1"
ForeColor = &H80000008&
Height = 225
Left = 180
TabIndex = 6
Top = 1530
Width = 5955
End
Begin VB.TextBox Text1
Appearance = 0 'Flat
Height = 285
Left = 180
TabIndex = 5
Text = "TIME TO WIN"
Top = 1170
Width = 5955
End
Begin VB.OptionButton Option1
Appearance = 0 'Flat
BackColor = &H00C0C0C0&
Caption = "&French"
ForeColor = &H80000008&
Height = 210
Index = 1
Left = 2070
TabIndex = 2
Top = 540
Width = 1635
End
Begin VB.CommandButton Command2
Appearance = 0 'Flat
BackColor = &H80000005&
Caption = "&Read"
Height = 375
Left = 180
TabIndex = 9
Top = 2700
Width = 2265
End
Begin VB.CommandButton Command1
Appearance = 0 'Flat
BackColor = &H80000005&
Caption = "&Close"
Height = 375
Left = 5220
TabIndex = 10
Top = 2700
Width = 915
End
Begin VB.OptionButton Option1
Appearance = 0 'Flat
BackColor = &H00C0C0C0&
Caption = "&English"
ForeColor = &H80000008&
Height = 210
Index = 0
Left = 180
TabIndex = 1
Top = 540
Value = -1 'True
Width = 1635
End
Begin VB.Label Label1
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = "&The name of this product is :"
ForeColor = &H80000008&
Height = 225
Index = 1
Left = 180
TabIndex = 4
Top = 900
Width = 5955
End
Begin VB.Label Label1
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = "&Select the appropriate language :"
ForeColor = &H80000008&
Height = 225
Index = 0
Left = 180
TabIndex = 0
Top = 180
Width = 5955
End
Begin VB.Menu mnu_1
Caption = "Menu &1"
Begin VB.Menu mnu_11
Caption = "menu 1.1"
Begin VB.Menu mnu_111
Caption = "menu 1.1.1"
End
Begin VB.Menu mnu_112
Caption = "menu 1.1.2"
Begin VB.Menu mnu_1121
Caption = "menu 1.1.2.1"
End
End
End
Begin VB.Menu mnu_12
Caption = "menu 1.2"
Begin VB.Menu mnu_121
Caption = "menu 1.2.1"
End
Begin VB.Menu mnu_122
Caption = "menu 1.2.2"
End
Begin VB.Menu mnu_123
Caption = "-"
End
Begin VB.Menu mnu_124
Caption = "menu 1.2.4"
Checked = -1 'True
End
End
End
Begin VB.Menu mnu_2
Caption = "Menu &2"
Enabled = 0 'False
End
Begin VB.Menu mnu_3
Caption = "Menu &3"
Begin VB.Menu mnu_31
Caption = "menu 3.1"
Enabled = 0 'False
End
Begin VB.Menu mnu_32
Caption = "menu 3.2"
End
End
End
Attribute VB_Name = "frmLng"
Attribute VB_Creatable = False
Attribute VB_Exposed = False
Option Explicit
Dim status As Integer
Private Sub Command1_Click()
Unload frmLng
End Sub
Private Sub Command2_Click()
If (Option1(0).Value = True) Then
status = cReadCtlLanguageExt(frmLng, 255, frmT2W.Tag + ".TUK")
Label2.Caption = cGetLongDay(LNG_ENGLISH, WeekDay(Int(Now))) & " " & Day(Int(Now)) & " " & cGetLongMonth(LNG_ENGLISH, Month(Int(Now))) & " " & Year(Int(Now))
End If
If (Option1(1).Value = True) Then
status = cReadCtlLanguageExt(frmLng, 255, frmT2W.Tag + ".TFR")
Label2.Caption = cGetLongDay(LNG_FRENCH, WeekDay(Int(Now))) & " " & Day(Int(Now)) & " " & cGetLongMonth(LNG_FRENCH, Month(Int(Now))) & " " & Year(Int(Now))
End If
If (Option1(2).Value = True) Then
status = cReadCtlLanguageExt(frmLng, 255, frmT2W.Tag + ".TNL")
Label2.Caption = cGetLongDay(LNG_DUTCH, WeekDay(Int(Now))) & " " & Day(Int(Now)) & " " & cGetLongMonth(LNG_FRENCH, Month(Int(Now))) & " " & Year(Int(Now))
End If
End Sub
Private Sub Form_Load()
status = cReadCtlLanguageExt(frmLng, 255, frmT2W.Tag + ".TUK")
Label2.Caption = cGetLongDay(LNG_ENGLISH, WeekDay(Int(Now))) & " " & Day(Int(Now)) & " " & cGetLongMonth(LNG_ENGLISH, Month(Int(Now))) & " " & Year(Int(Now))
End Sub